home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Online / hsc / grafflwerk / SendScMsg.rexx < prev    next >
OS/2 REXX Batch file  |  1996-08-04  |  3KB  |  100 lines
  1. /*
  2.  * SendScMsg.rexx - send hsc-messages to ScMsg
  3.  *
  4.  * $VER: SendScMsg.rexx 1.0 (4.8.1996)
  5.  *
  6.  * Copyright 1996 Thomas Aglassinger <agi@giga.or.at>
  7.  *
  8.  * This program is free software; you can redistribute it and/or modify
  9.  * it under the terms of the GNU General Public License as published by
  10.  * the Free Software Foundation; either version 2 of the License, or
  11.  * (at your option) any later version.
  12.  *
  13.  * This program is distributed in the hope that it will be useful,
  14.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16.  * GNU General Public License for more details.
  17.  *
  18.  * You should have received a copy of the GNU General Public License
  19.  * along with this program; if not, write to the Free Software
  20.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  *
  22.  *--------------------------------------------------------------------------
  23.  *
  24.  * USAGE
  25.  *   rx hScMsg <hsc-source-filename> <hsc-message-filename>
  26.  *
  27.  *   When invoking hsc before calling this script, you need to
  28.  *   set the MSGFILE-option to use the same messagefile as
  29.  *   passed to this script. Additionally, you need to set the
  30.  *   option MSGFORMAT="%f:::%y:::%c:::%i:::%m", which is the 
  31.  *   expected format for this script.
  32.  *
  33.  * EXAMPLE
  34.  *   hsc FROM hugo.hsc TO hugo.html MSGFORMAT="%f:::%y:::%c:::%i:::%m" MSGFILE=t:hscmsg.tmp
  35.  *   rx SendScMsg.rexx hugo.hsc t:hscmsg.tmp
  36.  *
  37.  * BUGS
  38.  *   
  39.  *   o There is no way for this script to check if you've set all
  40.  *     options correctly when invoking hsc.
  41.  *   o concurrecy problems will occure when you invoke multiple
  42.  *     instancies of hsc ouputing to the same message-file
  43.  *   o filenames containig blanks won't work
  44.  *   o ScMsg can't handle all message-classes of hsc, therefor only
  45.  *     "Warning" and "Error" are used for display
  46.  */
  47.  
  48. ScMsgPath = "sc:c/ScMsg"
  49.  
  50. Options Failat 21
  51.  
  52. Parse ARG SourceFilename MessageFilename
  53.  
  54. /* display help and exit */
  55. IF ((SourceFilename="") | (SourceFilename='?') | (MessageFilename="")) THEN DO
  56.     SAY 'Usage: hScMsg <hsc-source-filename> <hsc-message-filename>'
  57.     SAY '       (see source-code for details)'
  58.     Exit
  59. END
  60.  
  61. /* strip leading spaces from MessageFilename */
  62. MessageFilename = Strip(MessageFilename, 'L')
  63.  
  64. /* invoke ScMsg, if it's not already there */
  65. IF ~Show('ports', 'SC_SCMSG') THEN DO
  66.     Address Command 'Run <>nil:' SCMSGPATH 'HIDDEN'
  67.     Address Command 'WaitForPort SC_SCMSG'
  68. END
  69.  
  70. /* check, if ScMsg showed up */
  71. IF ~Show('ports', 'SC_SCMSG') THEN DO
  72.     Say "Couldn't start ScMsg, giving up."
  73.     Exit 10
  74. END
  75.  
  76. /* remove old messages in ScMsg-window */
  77. Address 'SC_SCMSG' DelFile SourceFilename
  78.  
  79. /* process message file, if exists */
  80. IF Open('File', MessageFilename, 'R') THEN DO
  81.  
  82.     DO UNTIL Eof('File')
  83.         Line = ReadLn('File')
  84.  
  85.         /* extract information from current message-line */
  86.         Parse VAR Line File ':::' Line ':::' MsgClass ':::' MsgNum ':::' Msg
  87.         IF ((MsgClass='Error') | (MsgClass='Fatal Error')) THEN
  88.             MsgClass='Error'
  89.         ELSE
  90.             MsgClass='Warning'
  91.  
  92.         /* Send message to ScMsg */
  93.         Address  'SC_SCMSG' NewMsg '"'||SourceFilename||'"' '"'||SourceFilename||'"' Line '0 "" 0' MsgClass MsgNum Msg
  94.     END
  95.     Address 'SC_SCMSG' Show Activate
  96.  
  97.     /* cleanup */
  98.     Call Close('File')
  99. END
  100.